home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
T-TPUG Old Monthly Disks
/
(c)t5.d64
/
the great fred.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
4KB
|
167 lines
5 PRINT"C[147]"
6 POKE53281,1
7 GOSUB730
10 REM MIND READER
12 FORH=0TO5
13 PRINT
14 NEXTH
15 PRINTCHR$(30)
20 POKE53281,1
24 POKE53280,2
25 PRINTTAB(12)"ARE YOU READY",CHR$(13)
27 PRINT
28 PRINTTAB(14)"TO HAVE ME",CHR$(13)
30 PRINT
31 PRINTTAB(12)"READ YOUR MIND? "
32 PRINTCHR$(31):PRINT:PRINT:PRINT:PRINT:PRINT
33 PRINTTAB(8):PRINT" PRESS 'Y' OR 'N' [146]"
35 GETJ$:IFJ$=""GOTO35
40 IFJ$="Y"GOTO60
50 GOTO 7
60 SPEED=25:PRINTCHR$(19)
70 POKE53281,1:POKE53280,7:PRINTCHR$(147)
75 PRINT:PRINT:PRINT:PRINT
80 PRINTTAB(8)"MY NAME IS "
85 PRINTCHR$(28):PRINTTAB(8):PRINT:PRINT:PRINT
90 PRINTTAB(8):PRINT"'G R E A T F R E D'":PRINT:PRINT:PRINT:PRINT:PRINTCHR$(31)
92 PRINTTAB(8)" THE WORLD'S GREATEST "
93 PRINTTAB(8)" MIND READING COMPUTER ":PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
95 PRINT:PRINTTAB(2):PRINT" PRESS ANY KEY TO CONTINUE [146]"
97 GETL$:IFL$=""THEN GOTO97
98 PRINTCHR$(31):PRINTCHR$(19):PRINTCHR$(147)
100 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
102 PRINTCHR$(28):PRINTTAB(15);A$:PRINTCHR$(31):PRINTCHR$(13):PRINTTAB(5)
105 PRINT"YOU WILL NEED TO DO SOME MATH"
106 PRINT:PRINT:PRINT:PRINT
110 PRINTTAB(5)
112 PRINT" N O C A L C U L A T O R S "
115 PRINT:PRINT:PRINT:PRINTTAB(12)"P L E A S E"
116 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT" PRESS ANY KEY TO CONTINUE [146]"
118 GETK$:IFK$=""THEN GOTO118
120 PRINTCHR$(147):PRINT:PRINT:PRINT:PRINTTAB(5)
130 X=INT(5*RND(1))+1:Y=X+X
140 Z=INT(10*RND(1))+1:ANS=X+Z
160 PRINT:PRINT:PRINT
170 PRINTTAB(5):PRINT"THINK OF A NUMBER":PRINTCHR$(13):PRINT
180 PRINTTAB(5):PRINT"BETWEEN 1 AND 10":PRINTCHR$(13):PRINT
210 PRINTTAB(5):PRINT"ADD THE NUMBER TO ITSELF"
220 GOSUB660:PRINT:PRINT
230 PRINTTAB(15)"ADD";Y
240 PRINT:GOSUB 660:PRINT:PRINT
250 PRINTTAB(8)"DIVIDE BY 2"
260 PRINT:GOSUB 660
262 PRINTTAB(5)" PRESS ANY KEY TO CONTINUE [146]"
263 GETM$:IFM$=""THENGOTO263
265 PRINTCHR$(147):PRINT:PRINT:PRINT
267 PRINTTAB(15)"SUBTRACT":PRINT:PRINT
268 PRINTTAB(5)"THE NUMBER YOU FIRST THOUGHT OF":PRINT:PRINT
269 PRINTTAB(8)"FROM THE NUMBER YOU HAVE NOW":PRINT:PRINT
280 PRINT:GOSUB660:PRINT:PRINT:PRINT
290 PRINTTAB(10)"ADD THE NUMBER";Z
295 PRINTCHR$(28):PRINT:PRINT:PRINT
300 GOSUB660:GOSUB660
310 PRINTTAB(5)"THE NUMBER YOU HAVE NOW IS ";ANS
312 PRINTCHR$(159):PRINT:PRINT:PRINT:PRINT
313 PRINTTAB(5)" PRESS ANY KEY TO CONTINUE [146]"
315 GETN$:IFN$=""THENGOTO315
317 PRINTCHR$(31)
320 GOSUB 660
330 INPUT"IS THIS THE RIGHT ANSWER? (Y/N) ";D$
340 PRINT
350 GOSUB 680
360 IF YES = 0 GOTO 426
370 FOR W=1TO12:PRINT CHR$(13):NEXT W
380 PRINT" THE GREAT FRED IS NEVER WRONG"
390 PRINT:FORW=1TO7:PRINTCHR$(7):NEXTW
391 FORH=0TO3:PRINTCHR$(7):NEXTH
394 PRINTTAB(3)" IF YOU WOULD LIKE TO KNOW [146]"
395 PRINTTAB(3)" WHY I AM CALLED FRED PRESS F7 [146]"
396 PRINTCHR$(7)
397 FORH=0TO3:PRINTCHR$(7):NEXTH
398 PRINTCHR$(30)
399 PRINTTAB(3)" TO CONTINUE PRESS ANY KEY [146]"
400 GETD$:IFD$=""THENGOTO400
401 IFD$=CHR$(136)THENGOTO850
410 (null) TO 7
420 GOSUB 660
425 PRINTTAB(10)"BECAUSE":PRINTCHR$(13):PRINTCHR$(7):PRINTCHR$(28)
426 PRINTTAB(8)"'THE GREAT FRED'":PRINTCHR$(7):PRINTCHR$(31)
427 PRINTTAB(8)"ALMOST NEVER":PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7)
428 PRINTTAB(8)"MAKES A MASTAKE OOPS!!":PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7)
429 POKE37,21:PRINTCHR$(7)
440 POKE 37,21:PRINT
445 PRINTTAB(8)"MAKES A MISTAKE":PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7)
450 PRINTTAB(8)"LET'S CHECK YOUR MATH":PRINTCHR$(7):PRINTCHR$(7):
460 GOSUB660
470 INPUT"WHAT NUMBER DID YOU THINK OF ";T
480 R=T+T
490 GOSUB 660
500 PRINT"NOW ";T;" ADDED TO ";T;" EQUALS ";R
510 S=R+Y
520 GOSUB 660
530 PRINTTAB(5)"I ASK YOU TO ADD ";Y;" AND "
532 PRINTTAB(8)R;" + ";Y;" = ";S
540 U = S/2
550 GOSUB 660
560 PRINT "I ASK YOU TO DIVIDE BY 2 AND "
570 PRINT S;"DIVIDED BY 2 EQUALS ";U
580 V=U-T
590 GOSUB 660
600 PRINT"I ASK YOU TO SUBTRACT THE NUMBER"
601 PRINT" YOU FIRST THOUGHT OF WHICH"
602 PRINT" WAS";T;
610 PRINT" AND";U;" - ";T;" = ";V
620 Q=V+Z
630 GOSUB 660
640 PRINTTAB(8)"I ASK YOU TO ADD ";Z;" AND "
642 PRINTTAB(8)V;" + ";Z;" = ";Q
645 GOSUB 660;GOSUB 660
650 GOTO 370
660 FORI=1 TO 3000
662 NEXT I
664 PRINT CHR$(7)
670 RETURN
680 IF D$="Y"THEN YES=1:RETURN
690 IF D$="N"THEN YES=0:RETURN
700 PRINT"PRESS 'Y' OR 'N' ";NORMAL:GOTO 330
710 END
730 PRINTCHR$(147)
740 FORP=0TO5:PRINTCHR$(7):NEXTP
750 PRINTCHR$(28):POKE53271,1:PRINTTAB(12)"THE GREAT FRED"
760 PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(31)
770 PRINTTAB(12)"BY GEORGE HILTON"
772 PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7):PRINTTAB(12)
773 PRINTCHR$(156):PRINTCHR$(18)
774 PRINTTAB(1)" PRESS ANY KEY TO CONTINUE, F1 TO STOP [146]"
775 GETQ$:IFQ$=""THENGOTO775
776 PRINTCHR$(147):PRINTCHR$(31)
777 IFQ$=CHR$(133)THEN GOTO710
778 IFQ$=CHR$(139)THENGOTO975
780 POKE53280,9:POKE53281,1
785 PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7):PRINTTAB(8)
790 PRINT"PLEASE INPUT YOUR NAME";CHR$(13)
795 PRINTTAB(8)"FOLLOWED BY A RETURN":PRINTCHR$(13):PRINTTAB(8)
796 INPUT A$
800 PRINTCHR$(147)
810 PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7):PRINTTAB(8)
820 PRINT"HELLO ";A$:PRINTCHR$(13)
825 PRINTTAB(8)"MY NAME IS FRED":PRINTCHR$(13):PRINTCHR$(7)
830 PRINTTAB(8)"I AM PLEASED TO MEET YOU":PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7):PRINTCHR$(7)
832 PRINTCHR$(7):PRINTCHR$(7):PRINTTAB(4)
834 PRINTCHR$(156):PRINT" PRESS ANY KEY TO CONTINUE "
835 PRINTTAB(8)
836 GETC$:IFC$=""THEN GOTO836
840 PRINTCHR$(147):RETURN
850 POKE53280,9:POKE53281,1:PRINTCHR$(28)
860 PRINTCHR$(147):FORH=0TO3:PRINTCHR$(7):NEXTH
870 PRINTTAB(5)"F":PRINTCHR$(31):PRINTTAB(8)"SOMETIMES I AM FUNNY"
880 PRINTCHR$(7)
890 PRINTCHR$(28)
900 PRINTTAB(5)"R":PRINTCHR$(31):PRINTTAB(8)"OCCASIONALLY I AM REDICULOUS"
910 PRINTCHR$(7):PRINTCHR$(28)
920 PRINTTAB(5)"E D":PRINTCHR$(31):PRINTTAB(8)"ALWAYS I AM AN ELECTRONIC DEVICE"
930 FORH=0TO5:PRINTCHR$(7):NEXTH
960 PRINT" TO CONTINUE PRESS ANY KEY [146]"
970 GETD$:IFD$=""THENGOTO970
980 GOTO 7